home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 85
/
Tiger_Disk_085_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
roemische zahlen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
583b
|
30 lines
100 poke53280,6:poke53281,.:print"[147]"
105 z$="":input" welche zahl umrechnen ";z$
106 ifz$=""thenend
110 z=val(z$):print" = ";
120 b=z
130 ifb<=3000then200
140 print"zu gross":goto105
200 goto500
210 b=int(z/f)
220 ifb<>0thengosub1000
230 z=z-b*f
240 return
500 f=1000:a$="m":gosub 210
510 f=900: a$="cm":gosub 210
520 f=500: a$="d":gosub 210
530 f=400: a$="cd":gosub 210
540 f=100: a$="c":gosub 210
550 f=90: a$="xc":gosub 210
560 f=50: a$="l":gosub 210
570 f=40: a$="xl":gosub 210
580 f=10: a$="x":gosub 210
590 f=9: a$="ix":gosub 210
600 f=5: a$="v":gosub 210
610 f=4: a$="iv":gosub 210
620 f=1: a$="i":gosub 210
630 poke198,0:wait198,1:poke198,0:goto100
1000 fori=1tob
1010 print a$;
1020 next i: return